/ EuroCD 3 / EuroCD 3.iso / Programming / BlitzBasic / Blitz2_EquatesV3 / Includes / rexx / rxslib.bb2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 20 24 56 45 52 | 3a 20 72 78 73 6c 69 62 |;.; $VER|: rxslib|
|00000010| 2e 62 62 32 20 34 30 2e | 30 20 28 30 33 2e 30 33 |.bb2 40.|0 (03.03|
|00000020| 2e 39 34 29 00 3b 00 00 | 80 12 22 72 65 78 78 2f |.94).;..|.."rexx/|
|00000030| 73 74 6f 72 61 67 65 2e | 62 62 32 22 00 00 80 0d |storage.|bb2"....|
|00000040| 20 52 58 53 4e 41 4d 45 | 3a 22 72 65 78 78 73 79 | RXSNAME|:"rexxsy|
|00000050| 73 6c 69 62 2e 6c 69 62 | 72 61 72 79 22 3a 80 02 |slib.lib|rary":..|
|00000060| 20 80 0d 00 80 0d 20 52 | 58 53 44 49 52 3a 22 52 | ..... R|XSDIR:"R|
|00000070| 45 58 58 22 3a 80 02 20 | 80 0d 00 80 0d 20 52 58 |EXX":.. |..... RX|
|00000080| 53 54 4e 41 4d 45 3a 22 | 41 52 65 78 78 22 3a 80 |STNAME:"|ARexx":.|
|00000090| 02 20 80 0d 00 00 3b 2f | 2a 20 54 68 65 20 52 45 |. ....;/|* The RE|
|000000a0| 58 58 20 73 79 73 74 65 | 6d 73 20 6c 69 62 72 61 |XX syste|ms libra|
|000000b0| 72 79 20 73 74 72 75 63 | 74 75 72 65 2e 20 54 68 |ry struc|ture. Th|
|000000c0| 69 73 20 73 68 6f 75 6c | 64 20 62 65 20 63 6f 6e |is shoul|d be con|
|000000d0| 73 69 64 65 72 65 64 20 | 61 73 20 2a 2f 00 3b 2f |sidered |as */.;/|
|000000e0| 2a 20 73 65 6d 69 2d 70 | 72 69 76 61 74 65 20 61 |* semi-p|rivate a|
|000000f0| 6e 64 20 72 65 61 64 2d | 6f 6e 6c 79 2c 20 65 78 |nd read-|only, ex|
|00000100| 63 65 70 74 20 66 6f 72 | 20 64 6f 63 75 6d 65 6e |cept for| documen|
|00000110| 74 65 64 20 65 78 63 65 | 70 74 69 6f 6e 73 2e 20 |ted exce|ptions. |
|00000120| 2a 2f 00 00 80 01 2e 52 | 78 73 4c 69 62 00 72 6c |*/.....R|xsLib.rl|
|00000130| 5f 4e 6f 64 65 2e 4c 69 | 62 72 61 72 79 3b 2f 2a |_Node.Li|brary;/*|
|00000140| 20 45 58 45 43 20 6c 69 | 62 72 61 72 79 20 6e 6f | EXEC li|brary no|
|00000150| 64 65 20 20 2a 2f 00 72 | 6c 5f 46 6c 61 67 73 2e |de  */.r|l_Flags.|
|00000160| 62 20 3b 2f 2a 20 67 6c | 6f 62 61 6c 20 66 6c 61 |b ;/* gl|obal fla|
|00000170| 67 73 20 20 20 2a 2f 00 | 72 6c 5f 53 68 61 64 6f |gs   */.|rl_Shado|
|00000180| 77 2e 62 20 3b 2f 2a 20 | 73 68 61 64 6f 77 20 66 |w.b ;/* |shadow f|
|00000190| 6c 61 67 73 20 20 20 2a | 2f 00 2a 72 6c 5f 53 79 |lags   *|/.*rl_Sy|
|000001a0| 73 42 61 73 65 2e 62 20 | 3b 2f 2a 20 45 58 45 43 |sBase.b |;/* EXEC|
|000001b0| 20 6c 69 62 72 61 72 79 | 20 62 61 73 65 20 20 2a | library| base  *|
|000001c0| 2f 00 2a 72 6c 5f 44 4f | 53 42 61 73 65 2e 62 20 |/.*rl_DO|SBase.b |
|000001d0| 3b 2f 2a 20 44 4f 53 20 | 6c 69 62 72 61 72 79 20 |;/* DOS |library |
|000001e0| 62 61 73 65 20 20 2a 2f | 00 2a 72 6c 5f 49 65 65 |base  */|.*rl_Iee|
|000001f0| 65 44 50 42 61 73 65 2e | 62 20 3b 2f 2a 20 49 45 |eDPBase.|b ;/* IE|
|00000200| 45 45 20 44 50 20 6d 61 | 74 68 20 6c 69 62 72 61 |EE DP ma|th libra|
|00000210| 72 79 20 62 61 73 65 20 | 2a 2f 00 72 6c 5f 53 65 |ry base |*/.rl_Se|
|00000220| 67 4c 69 73 74 2e 6c 20 | 3b 2f 2a 20 6c 69 62 72 |gList.l |;/* libr|
|00000230| 61 72 79 20 73 65 67 6c | 69 73 74 20 20 2a 2f 00 |ary segl|ist  */.|
|00000240| 72 6c 5f 4e 49 4c 2e 6c | 20 3b 2f 2a 20 67 6c 6f |rl_NIL.l| ;/* glo|
|00000250| 62 61 6c 20 4e 49 4c 3a | 20 66 69 6c 65 68 61 6e |bal NIL:| filehan|
|00000260| 64 6c 65 20 2a 2f 00 72 | 6c 5f 43 68 75 6e 6b 2e |dle */.r|l_Chunk.|
|00000270| 6c 20 3b 2f 2a 20 61 6c | 6c 6f 63 61 74 69 6f 6e |l ;/* al|location|
|00000280| 20 71 75 61 6e 74 75 6d | 20 20 2a 2f 00 72 6c 5f | quantum|  */.rl_|
|00000290| 4d 61 78 4e 65 73 74 2e | 6c 20 3b 2f 2a 20 6d 61 |MaxNest.|l ;/* ma|
|000002a0| 78 69 6d 75 6d 20 65 78 | 70 72 65 73 73 69 6f 6e |ximum ex|pression|
|000002b0| 20 6e 65 73 74 69 6e 67 | 20 2a 2f 00 2a 72 6c 5f | nesting| */.*rl_|
|000002c0| 4e 55 4c 4c 2e 4e 65 78 | 78 53 74 72 3b 2f 2a 20 |NULL.Nex|xStr;/* |
|000002d0| 73 74 61 74 69 63 20 73 | 74 72 69 6e 67 3a 20 4e |static s|tring: N|
|000002e0| 55 4c 4c 20 20 2a 2f 00 | 2a 72 6c 5f 46 41 4c 53 |ULL  */.|*rl_FALS|
|000002f0| 45 2e 4e 65 78 78 53 74 | 72 3b 2f 2a 20 73 74 61 |E.NexxSt|r;/* sta|
|00000300| 74 69 63 20 73 74 72 69 | 6e 67 3a 20 46 41 4c 53 |tic stri|ng: FALS|
|00000310| 45 20 20 2a 2f 00 2a 72 | 6c 5f 54 52 55 45 2e 4e |E  */.*r|l_TRUE.N|
|00000320| 65 78 78 53 74 72 3b 2f | 2a 20 73 74 61 74 69 63 |exxStr;/|* static|
|00000330| 20 73 74 72 69 6e 67 3a | 20 54 52 55 45 20 20 2a | string:| TRUE  *|
|00000340| 2f 00 2a 72 6c 5f 52 45 | 58 58 2e 4e 65 78 78 53 |/.*rl_RE|XX.NexxS|
|00000350| 74 72 3b 2f 2a 20 73 74 | 61 74 69 63 20 73 74 72 |tr;/* st|atic str|
|00000360| 69 6e 67 3a 20 52 45 58 | 58 20 20 2a 2f 00 2a 72 |ing: REX|X  */.*r|
|00000370| 6c 5f 43 4f 4d 4d 41 4e | 44 2e 4e 65 78 78 53 74 |l_COMMAN|D.NexxSt|
|00000380| 72 3b 2f 2a 20 73 74 61 | 74 69 63 20 73 74 72 69 |r;/* sta|tic stri|
|00000390| 6e 67 3a 20 43 4f 4d 4d | 41 4e 44 20 2a 2f 00 2a |ng: COMM|AND */.*|
|000003a0| 72 6c 5f 53 54 44 49 4e | 2e 4e 65 78 78 53 74 72 |rl_STDIN|.NexxStr|
|000003b0| 3b 2f 2a 20 73 74 61 74 | 69 63 20 73 74 72 69 6e |;/* stat|ic strin|
|000003c0| 67 3a 20 53 54 44 49 4e | 20 20 2a 2f 00 2a 72 6c |g: STDIN|  */.*rl|
|000003d0| 5f 53 54 44 4f 55 54 2e | 4e 65 78 78 53 74 72 3b |_STDOUT.|NexxStr;|
|000003e0| 2f 2a 20 73 74 61 74 69 | 63 20 73 74 72 69 6e 67 |/* stati|c string|
|000003f0| 3a 20 53 54 44 4f 55 54 | 20 2a 2f 00 2a 72 6c 5f |: STDOUT| */.*rl_|
|00000400| 53 54 44 45 52 52 2e 4e | 65 78 78 53 74 72 3b 2f |STDERR.N|exxStr;/|
|00000410| 2a 20 73 74 61 74 69 63 | 20 73 74 72 69 6e 67 3a |* static| string:|
|00000420| 20 53 54 44 45 52 52 20 | 2a 2f 00 2a 72 6c 5f 56 | STDERR |*/.*rl_V|
|00000430| 65 72 73 69 6f 6e 2e 62 | 20 3b 2f 2a 20 76 65 72 |ersion.b| ;/* ver|
|00000440| 73 69 6f 6e 20 73 74 72 | 69 6e 67 20 20 2a 2f 00 |sion str|ing  */.|
|00000450| 00 2a 72 6c 5f 54 61 73 | 6b 4e 61 6d 65 2e 62 20 |.*rl_Tas|kName.b |
|00000460| 3b 2f 2a 20 6e 61 6d 65 | 20 73 74 72 69 6e 67 20 |;/* name| string |
|00000470| 66 6f 72 20 74 61 73 6b | 73 20 2a 2f 00 72 6c 5f |for task|s */.rl_|
|00000480| 54 61 73 6b 50 72 69 2e | 6c 20 3b 2f 2a 20 73 74 |TaskPri.|l ;/* st|
|00000490| 61 72 74 69 6e 67 20 70 | 72 69 6f 72 69 74 79 20 |arting p|riority |
|000004a0| 20 2a 2f 00 72 6c 5f 54 | 61 73 6b 53 65 67 2e 6c | */.rl_T|askSeg.l|
|000004b0| 20 3b 2f 2a 20 73 74 61 | 72 74 75 70 20 73 65 67 | ;/* sta|rtup seg|
|000004c0| 6c 69 73 74 20 20 2a 2f | 00 72 6c 5f 53 74 61 63 |list  */|.rl_Stac|
|000004d0| 6b 53 69 7a 65 2e 6c 20 | 3b 2f 2a 20 73 74 61 63 |kSize.l |;/* stac|
|000004e0| 6b 20 73 69 7a 65 20 20 | 20 2a 2f 00 2a 72 6c 5f |k size  | */.*rl_|
|000004f0| 52 65 78 78 44 69 72 2e | 62 20 3b 2f 2a 20 52 45 |RexxDir.|b ;/* RE|
|00000500| 58 58 20 64 69 72 65 63 | 74 6f 72 79 20 20 2a 2f |XX direc|tory  */|
|00000510| 00 2a 72 6c 5f 43 54 41 | 42 4c 45 2e 62 20 3b 2f |.*rl_CTA|BLE.b ;/|
|00000520| 2a 20 63 68 61 72 61 63 | 74 65 72 20 61 74 74 72 |* charac|ter attr|
|00000530| 69 62 75 74 65 20 74 61 | 62 6c 65 20 2a 2f 00 2a |ibute ta|ble */.*|
|00000540| 72 6c 5f 4e 6f 74 69 63 | 65 2e 62 20 3b 2f 2a 20 |rl_Notic|e.b ;/* |
|00000550| 63 6f 70 79 72 69 67 68 | 74 20 6e 6f 74 69 63 65 |copyrigh|t notice|
|00000560| 20 20 2a 2f 00 00 72 6c | 5f 52 65 78 78 50 6f 72 |  */..rl|_RexxPor|
|00000570| 74 2e 4d 73 67 50 6f 72 | 74 3b 2f 2a 20 52 45 58 |t.MsgPor|t;/* REX|
|00000580| 58 20 70 75 62 6c 69 63 | 20 70 6f 72 74 20 20 2a |X public| port  *|
|00000590| 2f 00 72 6c 5f 52 65 61 | 64 4c 6f 63 6b 2e 77 20 |/.rl_Rea|dLock.w |
|000005a0| 3b 2f 2a 20 6c 6f 63 6b | 20 63 6f 75 6e 74 20 20 |;/* lock| count  |
|000005b0| 20 2a 2f 00 72 6c 5f 54 | 72 61 63 65 46 48 2e 6c | */.rl_T|raceFH.l|
|000005c0| 20 3b 2f 2a 20 67 6c 6f | 62 61 6c 20 74 72 61 63 | ;/* glo|bal trac|
|000005d0| 65 20 63 6f 6e 73 6f 6c | 65 20 20 2a 2f 00 72 6c |e consol|e  */.rl|
|000005e0| 5f 54 61 73 6b 4c 69 73 | 74 2e 4c 69 73 74 3b 2f |_TaskLis|t.List;/|
|000005f0| 2a 20 52 45 58 58 20 74 | 61 73 6b 20 6c 69 73 74 |* REXX t|ask list|
|00000600| 20 20 2a 2f 00 72 6c 5f | 4e 75 6d 54 61 73 6b 2e |  */.rl_|NumTask.|
|00000610| 77 20 3b 2f 2a 20 74 61 | 73 6b 20 63 6f 75 6e 74 |w ;/* ta|sk count|
|00000620| 20 20 20 2a 2f 00 72 6c | 5f 4c 69 62 4c 69 73 74 |   */.rl|_LibList|
|00000630| 2e 4c 69 73 74 3b 2f 2a | 20 4c 69 62 72 61 72 79 |.List;/*| Library|
|00000640| 20 4c 69 73 74 20 68 65 | 61 64 65 72 20 20 2a 2f | List he|ader  */|
|00000650| 00 72 6c 5f 4e 75 6d 4c | 69 62 2e 77 20 3b 2f 2a |.rl_NumL|ib.w ;/*|
|00000660| 20 6c 69 62 72 61 72 79 | 20 63 6f 75 6e 74 20 20 | library| count  |
|00000670| 2a 2f 00 72 6c 5f 43 6c | 69 70 4c 69 73 74 2e 4c |*/.rl_Cl|ipList.L|
|00000680| 69 73 74 3b 2f 2a 20 43 | 6c 69 70 4c 69 73 74 20 |ist;/* C|lipList |
|00000690| 68 65 61 64 65 72 20 20 | 2a 2f 00 72 6c 5f 4e 75 |header  |*/.rl_Nu|
|000006a0| 6d 43 6c 69 70 2e 77 20 | 3b 2f 2a 20 63 6c 69 70 |mClip.w |;/* clip|
|000006b0| 20 6e 6f 64 65 20 63 6f | 75 6e 74 20 20 2a 2f 00 | node co|unt  */.|
|000006c0| 72 6c 5f 4d 73 67 4c 69 | 73 74 2e 4c 69 73 74 3b |rl_MsgLi|st.List;|
|000006d0| 2f 2a 20 70 65 6e 64 69 | 6e 67 20 6d 65 73 73 61 |/* pendi|ng messa|
|000006e0| 67 65 73 20 20 2a 2f 00 | 72 6c 5f 4e 75 6d 4d 73 |ges  */.|rl_NumMs|
|000006f0| 67 2e 77 20 3b 2f 2a 20 | 70 65 6e 64 69 6e 67 20 |g.w ;/* |pending |
|00000700| 63 6f 75 6e 74 20 20 2a | 2f 00 72 6c 5f 50 67 6d |count  *|/.rl_Pgm|
|00000710| 4c 69 73 74 2e 4c 69 73 | 74 3b 2f 2a 20 63 61 63 |List.Lis|t;/* cac|
|00000720| 68 65 64 20 70 72 6f 67 | 72 61 6d 73 20 20 2a 2f |hed prog|rams  */|
|00000730| 00 72 6c 5f 4e 75 6d 50 | 67 6d 2e 77 20 3b 2f 2a |.rl_NumP|gm.w ;/*|
|00000740| 20 70 72 6f 67 72 61 6d | 20 63 6f 75 6e 74 20 20 | program| count  |
|00000750| 2a 2f 00 00 72 6c 5f 54 | 72 61 63 65 43 6e 74 2e |*/..rl_T|raceCnt.|
|00000760| 77 20 3b 2f 2a 20 75 73 | 61 67 65 20 63 6f 75 6e |w ;/* us|age coun|
|00000770| 74 20 66 6f 72 20 74 72 | 61 63 65 20 63 6f 6e 73 |t for tr|ace cons|
|00000780| 6f 6c 65 20 2a 2f 00 72 | 6c 5f 61 76 61 69 6c 2e |ole */.r|l_avail.|
|00000790| 77 00 80 02 20 80 01 00 | 00 3b 2f 2a 20 47 6c 6f |w... ...|.;/* Glo|
|000007a0| 62 61 6c 20 66 6c 61 67 | 20 62 69 74 20 64 65 66 |bal flag| bit def|
|000007b0| 69 6e 69 74 69 6f 6e 73 | 20 66 6f 72 20 52 65 78 |initions| for Rex|
|000007c0| 78 4d 61 73 74 65 72 20 | 20 20 20 2a 2f 00 23 52 |xMaster |   */.#R|
|000007d0| 4c 46 42 5f 54 52 41 43 | 45 3d 23 52 54 46 42 5f |LFB_TRAC|E=#RTFB_|
|000007e0| 54 52 41 43 45 3b 2f 2a | 20 69 6e 74 65 72 61 63 |TRACE;/*| interac|
|000007f0| 74 69 76 65 20 74 72 61 | 63 69 6e 67 3f 20 20 2a |tive tra|cing?  *|
|00000800| 2f 00 23 52 4c 46 42 5f | 48 41 4c 54 3d 23 52 54 |/.#RLFB_|HALT=#RT|
|00000810| 46 42 5f 48 41 4c 54 3b | 2f 2a 20 68 61 6c 74 20 |FB_HALT;|/* halt |
|00000820| 65 78 65 63 75 74 69 6f | 6e 3f 20 20 2a 2f 00 23 |executio|n?  */.#|
|00000830| 52 4c 46 42 5f 53 55 53 | 50 3d 23 52 54 46 42 5f |RLFB_SUS|P=#RTFB_|
|00000840| 53 55 53 50 3b 2f 2a 20 | 73 75 73 70 65 6e 64 20 |SUSP;/* |suspend |
|00000850| 65 78 65 63 75 74 69 6f | 6e 3f 20 20 2a 2f 00 23 |executio|n?  */.#|
|00000860| 52 4c 46 42 5f 53 54 4f | 50 3d 36 3b 2f 2a 20 64 |RLFB_STO|P=6;/* d|
|00000870| 65 6e 79 20 66 75 72 74 | 68 65 72 20 69 6e 76 6f |eny furt|her invo|
|00000880| 63 61 74 69 6f 6e 73 20 | 2a 2f 00 23 52 4c 46 42 |cations |*/.#RLFB|
|00000890| 5f 43 4c 4f 53 45 3d 37 | 3b 2f 2a 20 63 6c 6f 73 |_CLOSE=7|;/* clos|
|000008a0| 65 20 74 68 65 20 6d 61 | 73 74 65 72 20 20 2a 2f |e the ma|ster  */|
|000008b0| 00 00 23 52 4c 46 4d 41 | 53 4b 3d 28 31 80 7c 23 |..#RLFMA|SK=(1.|#|
|000008c0| 52 4c 46 42 5f 54 52 41 | 43 45 29 7c 28 31 80 7c |RLFB_TRA|CE)|(1.||
|000008d0| 23 52 4c 46 42 5f 48 41 | 4c 54 29 7c 28 31 80 7c |#RLFB_HA|LT)|(1.||
|000008e0| 23 52 4c 46 42 5f 53 55 | 53 50 29 00 00 3b 2f 2a |#RLFB_SU|SP)..;/*|
|000008f0| 20 49 6e 69 74 69 61 6c | 69 7a 61 74 69 6f 6e 20 | Initial|ization |
|00000900| 63 6f 6e 73 74 61 6e 74 | 73 20 20 20 20 20 20 2a |constant|s      *|
|00000910| 2f 00 23 52 58 53 43 48 | 55 4e 4b 3d 31 30 32 34 |/.#RXSCH|UNK=1024|
|00000920| 3b 2f 2a 20 61 6c 6c 6f | 63 61 74 69 6f 6e 20 71 |;/* allo|cation q|
|00000930| 75 61 6e 74 75 6d 20 20 | 2a 2f 00 23 52 58 53 4e |uantum  |*/.#RXSN|
|00000940| 45 53 54 3d 33 32 3b 2f | 2a 20 65 78 70 72 65 73 |EST=32;/|* expres|
|00000950| 73 69 6f 6e 20 6e 65 73 | 74 69 6e 67 20 6c 69 6d |sion nes|ting lim|
|00000960| 69 74 20 2a 2f 00 23 52 | 58 53 54 50 52 49 3d 30 |it */.#R|XSTPRI=0|
|00000970| 3b 2f 2a 20 74 61 73 6b | 20 70 72 69 6f 72 69 74 |;/* task| priorit|
|00000980| 79 20 20 2a 2f 00 23 52 | 58 53 53 54 41 43 4b 3d |y  */.#R|XSSTACK=|
|00000990| 34 30 39 36 3b 2f 2a 20 | 73 74 61 63 6b 20 73 69 |4096;/* |stack si|
|000009a0| 7a 65 20 20 20 2a 2f 00 | 00 3b 2f 2a 20 43 68 61 |ze   */.|.;/* Cha|
|000009b0| 72 61 63 74 65 72 20 61 | 74 74 72 69 62 75 74 65 |racter a|ttribute|
|000009c0| 20 66 6c 61 67 20 62 69 | 74 73 20 75 73 65 64 20 | flag bi|ts used |
|000009d0| 69 6e 20 52 45 58 58 2e | 20 20 20 20 2a 2f 00 23 |in REXX.|    */.#|
|000009e0| 43 54 42 5f 53 50 41 43 | 45 3d 30 3b 2f 2a 20 77 |CTB_SPAC|E=0;/* w|
|000009f0| 68 69 74 65 20 73 70 61 | 63 65 20 63 68 61 72 61 |hite spa|ce chara|
|00000a00| 63 74 65 72 73 20 2a 2f | 00 23 43 54 42 5f 44 49 |cters */|.#CTB_DI|
|00000a10| 47 49 54 3d 31 3b 2f 2a | 20 64 65 63 69 6d 61 6c |GIT=1;/*| decimal|
|00000a20| 20 64 69 67 69 74 73 20 | 30 2d 39 20 20 2a 2f 00 | digits |0-9  */.|
|00000a30| 23 43 54 42 5f 41 4c 50 | 48 41 3d 32 3b 2f 2a 20 |#CTB_ALP|HA=2;/* |
|00000a40| 61 6c 70 68 61 62 65 74 | 69 63 20 63 68 61 72 61 |alphabet|ic chara|
|00000a50| 63 74 65 72 73 20 2a 2f | 00 23 43 54 42 5f 52 45 |cters */|.#CTB_RE|
|00000a60| 58 58 53 59 4d 3d 33 3b | 2f 2a 20 52 45 58 58 20 |XXSYM=3;|/* REXX |
|00000a70| 73 79 6d 62 6f 6c 20 63 | 68 61 72 61 63 74 65 72 |symbol c|haracter|
|00000a80| 73 20 2a 2f 00 23 43 54 | 42 5f 52 45 58 58 4f 50 |s */.#CT|B_REXXOP|
|00000a90| 52 3d 34 3b 2f 2a 20 52 | 45 58 58 20 6f 70 65 72 |R=4;/* R|EXX oper|
|00000aa0| 61 74 6f 72 20 63 68 61 | 72 61 63 74 65 72 73 20 |ator cha|racters |
|00000ab0| 2a 2f 00 23 43 54 42 5f | 52 45 58 58 53 50 43 3d |*/.#CTB_|REXXSPC=|
|00000ac0| 35 3b 2f 2a 20 52 45 58 | 58 20 73 70 65 63 69 61 |5;/* REX|X specia|
|00000ad0| 6c 20 73 79 6d 62 6f 6c | 73 20 20 2a 2f 00 23 43 |l symbol|s  */.#C|
|00000ae0| 54 42 5f 55 50 50 45 52 | 3d 36 3b 2f 2a 20 55 50 |TB_UPPER|=6;/* UP|
|00000af0| 50 45 52 43 41 53 45 20 | 61 6c 70 68 61 62 65 74 |PERCASE |alphabet|
|00000b00| 69 63 20 20 2a 2f 00 23 | 43 54 42 5f 4c 4f 57 45 |ic  */.#|CTB_LOWE|
|00000b10| 52 3d 37 3b 2f 2a 20 6c | 6f 77 65 72 63 61 73 65 |R=7;/* l|owercase|
|00000b20| 20 61 6c 70 68 61 62 65 | 74 69 63 20 20 2a 2f 00 | alphabe|tic  */.|
|00000b30| 00 3b 2f 2a 20 41 74 74 | 72 69 62 75 74 65 20 66 |.;/* Att|ribute f|
|00000b40| 6c 61 67 73 20 20 20 20 | 20 20 20 2a 2f 00 23 43 |lags    |   */.#C|
|00000b50| 54 46 5f 53 50 41 43 45 | 3d 28 31 80 7c 23 43 54 |TF_SPACE|=(1.|#CT|
|00000b60| 42 5f 53 50 41 43 45 29 | 00 23 43 54 46 5f 44 49 |B_SPACE)|.#CTF_DI|
|00000b70| 47 49 54 3d 28 31 80 7c | 23 43 54 42 5f 44 49 47 |GIT=(1.||#CTB_DIG|
|00000b80| 49 54 29 00 23 43 54 46 | 5f 41 4c 50 48 41 3d 28 |IT).#CTF|_ALPHA=(|
|00000b90| 31 80 7c 23 43 54 42 5f | 41 4c 50 48 41 29 00 23 |1.|#CTB_|ALPHA).#|
|00000ba0| 43 54 46 5f 52 45 58 58 | 53 59 4d 3d 28 31 80 7c |CTF_REXX|SYM=(1.||
|00000bb0| 23 43 54 42 5f 52 45 58 | 58 53 59 4d 29 00 23 43 |#CTB_REX|XSYM).#C|
|00000bc0| 54 46 5f 52 45 58 58 4f | 50 52 3d 28 31 80 7c 23 |TF_REXXO|PR=(1.|#|
|00000bd0| 43 54 42 5f 52 45 58 58 | 4f 50 52 29 00 23 43 54 |CTB_REXX|OPR).#CT|
|00000be0| 46 5f 52 45 58 58 53 50 | 43 3d 28 31 80 7c 23 43 |F_REXXSP|C=(1.|#C|
|00000bf0| 54 42 5f 52 45 58 58 53 | 50 43 29 00 23 43 54 46 |TB_REXXS|PC).#CTF|
|00000c00| 5f 55 50 50 45 52 3d 28 | 31 80 7c 23 43 54 42 5f |_UPPER=(|1.|#CTB_|
|00000c10| 55 50 50 45 52 29 00 23 | 43 54 46 5f 4c 4f 57 45 |UPPER).#|CTF_LOWE|
|00000c20| 52 3d 28 31 80 7c 23 43 | 54 42 5f 4c 4f 57 45 52 |R=(1.|#C|TB_LOWER|
|00000c30| 29 00                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+